home *** CD-ROM | disk | FTP | other *** search
/ Get a Grip Tennis by Wilson / Get a Grip Tennis by Wilson.iso / pc / wilson.dxr / Internal_44_text-bullet point controller.ls < prev    next >
Encoding:
Text File  |  2003-08-12  |  562 b   |  26 lines
  1. property pSprite, pMember, pFlag, pDuration, pMovieMember, pMovieSprite
  2.  
  3. on beginSprite me
  4.   pSprite = sprite(the currentSpriteNum)
  5.   pMember = member(pSprite.member)
  6.   pFlag = 0
  7.   pMovieSprite = sprite(39)
  8.   pMovieMember = member(pMovieSprite.member)
  9.   pDuration = pMovieMember.duration
  10.   pSprite.visible = 0
  11. end
  12.  
  13. on exitFrame me
  14.   if pFlag = 0 then
  15.     perc = (pDuration - (pDuration - pMovieSprite.movieTime)) * 100 / pDuration
  16.     if perc > 98 then
  17.       pSprite.visible = 1
  18.       pFlag = 1
  19.     end if
  20.   end if
  21. end
  22.  
  23. on endSprite me
  24.   pSprite.visible = 1
  25. end
  26.